home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / NederlandM2.dxr / Internal_95_uitvouwen3.ls < prev    next >
Encoding:
Text File  |  2002-12-20  |  1.0 KB  |  26 lines
  1. on uitvouwen3
  2.   global horizontalmenu, plusjesteller, hoofdstuk, hoofdstukaantal, blokjeslijst, explorervertical
  3.   plusjesteller = 0
  4.   blokjeslijst = list()
  5.   explorerverticaltmp = explorervertical
  6.   repeat with tellertje = 32 to hoofdstukaantal + 31
  7.     vraaghoofdstuk = hoofdstuk[tellertje - 31]
  8.     lengtevraaghoofdstuk = length(vraaghoofdstuk)
  9.     set the locV of sprite tellertje to explorerverticaltmp
  10.     if sprite(tellertje).visibility = 1 then
  11.       explorerverticaltmp = explorerverticaltmp + 14
  12.     end if
  13.     if (sprite(tellertje).locV < 470) or (sprite(tellertje).locV > 570) then
  14.       sprite(tellertje).visibility = 0
  15.     end if
  16.     if sprite(tellertje).visibility = 1 then
  17.       plusjesteller = plusjesteller + 1
  18.       blokjeslijst[plusjesteller] = vraaghoofdstuk
  19.       sprite(200 + plusjesteller).locV = sprite(tellertje).locV + 7
  20.       sprite(200 + plusjesteller).locH = horizontalmenu + (10 * lengtevraaghoofdstuk)
  21.       sprite(200 + plusjesteller).visibility = 1
  22.       puppetSprite(200 + plusjesteller, 1)
  23.     end if
  24.   end repeat
  25. end
  26.